;
; Events text for Slash and Burn
; Copyright(c) 1999, Dan Scheltema
;
;

@BEGINEVENTS

; @DEBUG

; Startup stuff

@IF
SCENARIOLOADED
@THEN
PLAYCDTRACK
20
DONTPLAYWONDERS
@ENDIF

; No talking to animals or cannibals

@IF
NEGOTIATION
TALKER=Forest
TALKERTYPE=HumanOrComputer
LISTENER=Anybody
LISTENERTYPE=HumanOrComputer
@THEN

@ENDIF

@IF
NEGOTIATION
TALKER=Mayuruna
TALKERTYPE=HumanOrComputer
LISTENER=Anybody
LISTENERTYPE=HumanOrComputer
@THEN

@ENDIF

@IF
NEGOTIATION
TALKER=River
TALKERTYPE=HumanOrComputer
LISTENER=Anybody
LISTENERTYPE=HumanOrComputer
@THEN

@ENDIF

@IF
NEGOTIATION
TALKER=Anybody
TALKERTYPE=HumanOrComputer
LISTENER=Forest
LISTENERTYPE=HumanOrComputer
@THEN

@ENDIF

@IF
NEGOTIATION
TALKER=Anybody
TALKERTYPE=HumanOrComputer
LISTENER=River
LISTENERTYPE=HumanOrComputer
@THEN

@ENDIF

@IF
NEGOTIATION
TALKER=Anybody
TALKERTYPE=HumanOrComputer
LISTENER=Mayuruna
LISTENERTYPE=HumanOrComputer
@THEN
JUSTONCE
TEXT
^A Mayuruna warrior eyes the speaker, then spits.  A second
^one begins sharpening a spit while a third starts a fire.
ENDTEXT
@ENDIF

@IF
NEGOTIATION
TALKER=Tucuna
TALKERTYPE=HumanOrComputer
LISTENER=Mayuruna
LISTENERTYPE=HumanOrComputer
@THEN
MakeAggression
who=Mayuruna
whom=Tucuna
@ENDIF

@IF
NEGOTIATION
TALKER=Marubu
TALKERTYPE=HumanOrComputer
LISTENER=Mayuruna
LISTENERTYPE=HumanOrComputer
@THEN
MakeAggression
who=Mayuruna
whom=Marubu
@ENDIF


; Set up first village loss to kill the owner 
; and destroy the village if forest takes it

@IF
citytaken
city=Tabatinga
attacker=anybody
defender=Tucuna
@THEN
PLAYWAVEFILE
Volcano.wav
^The Tucuna first village of Tabatinga has fallen and with
^it went the Tucuna will to live.  The jungle reclaims its own.
ENDTEXT
destroyacivilization
whom=Tucuna
@ENDIF

@IF
citytaken
city=Tabatinga
attacker=Forest
defender=anybody
@THEN
changeterrain
terraintype=10
maprect
67,53,67,53,67,53,67,53
@ENDIF

@IF
citytaken
city=Janiwa
attacker=anybody
defender=Marubu
@THEN
PLAYWAVEFILE
Volcano.wav
TEXT
^The Marubu first village of Janiwa has fallen and with it
^went the Marubu will to live.  The jungle reclaims its own.
ENDTEXT
destroyacivilization
whom=Marubu
@ENDIF

@IF
citytaken
city=Janiwa
attacker=Forest
defender=anybody
@THEN
changeterrain
terraintype=10
maprect
46,8,46,8,46,8,46,8
@ENDIF

@IF
citytaken
city=Maracaja
attacker=anybody
defender=Mayuruna
@THEN
JUSTONCE
PLAYWAVEFILE
Volcano.wav
ENDTEXT
^The Mayuruna first village of Maracaja has fallen!  The
^threat to peaceful, civilized peoples is diminished.
ENDTEXT
@ENDIF

@IF
citytaken
city=Maracaja
attacker=Forest
defender=anybody
@THEN
changeterrain
terraintype=10
maprect
3,75,3,75,3,75,3,75
@ENDIF

; Catador 65 & 72 & farmer/trapper awards 

@IF
ReceivedTechnology
receiver=Tucuna
technology=65
@THEN
CREATEUNIT
OWNER=Tucuna
UNIT=Cantador
VETERAN=yes
HOMECITY=none
LOCATIONS
67,53
ENDLOCATIONS
justonce
@ENDIF

@IF
ReceivedTechnology
receiver=Tucuna
technology=72
@THEN
CREATEUNIT
OWNER=Tucuna
UNIT=Cantador
VETERAN=no
HOMECITY=none
LOCATIONS
67,53
ENDLOCATIONS
justonce
@ENDIF

@IF
ReceivedTechnology
receiver=Tucuna
technology=81
@THEN
CREATEUNIT
OWNER=Tucuna
UNIT=Trapper
VETERAN=yes
HOMECITY=none
LOCATIONS
67,53
ENDLOCATIONS
justonce
@ENDIF

@IF
ReceivedTechnology
receiver=Marubu
technology=65
@THEN
CREATEUNIT
OWNER=Marubu
UNIT=Cantador
VETERAN=yes
HOMECITY=none
LOCATIONS
46,8
ENDLOCATIONS
justonce
@ENDIF

@IF
ReceivedTechnology
receiver=Marubu
technology=72
@THEN
CREATEUNIT
OWNER=Marubu
UNIT=Cantador
VETERAN=no
HOMECITY=none
LOCATIONS
46,8
ENDLOCATIONS
justonce
@ENDIF

@IF
ReceivedTechnology
receiver=Marubu
technology=81
@THEN
CREATEUNIT
OWNER=Marubu
UNIT=Trapper
VETERAN=no
HOMECITY=none
LOCATIONS
46,8
ENDLOCATIONS
justonce
@ENDIF


; Tech finds (first kill stuff)

@IF
UNITKILLED
UNIT=Jacare
Attacker=Tucuna
DEFENDER=River
@THEN
GiveTechnology
TECHNOLOGY=23
RECEIVER=Tucuna
TEXT
^A Tucuna fisherman has killed a jacare.  A warrior is born!
ENDTEXT
justonce
@ENDINF

@IF
UNITKILLED
UNIT=Tambaqui
Attacker=Marubu
DEFENDER=River
@THEN
GIVETECHNOLOGY
TECHNOLOGY=29
RECEIVER=Marubu
justonce
@ENDINF

@IF
UNITKILLED
UNIT=Caititu
Attacker=Tucuna
DEFENDER=Forest
@THEN
GIVETECHNOLOGY
TECHNOLOGY=76
RECEIVER=Tucuna
justonce
@ENDINF

@IF
UNITKILLED
UNIT=Anta
Attacker=Marubu
DEFENDER=Forest
@THEN
GIVETECHNOLOGY
TECHNOLOGY=74
RECEIVER=Marubu
justonce
@ENDINF

@IF
UNITKILLED
UNIT=Anta
Attacker=Tucuna
DEFENDER=Forest
@THEN
GIVETECHNOLOGY
TECHNOLOGY=74
RECEIVER=Tucuna
justonce
@ENDINF

@IF
UNITKILLED
UNIT=Onca
Attacker=Marubu
DEFENDER=Forest
@THEN
GiveTechnology
TECHNOLOGY=23
RECEIVER=Marubu
TEXT
^A Marubu hunter has killed an onca.  A warrior is born!
ENDTEXT
justonce
@ENDINF

@IF
UNITKILLED
UNIT=Kechada Pack
Attacker=Marubu
DEFENDER=Forest
@THEN
GIVETECHNOLOGY
TECHNOLOGY=16
RECEIVER=Marubu
TEXT
^A Marubu has brought down a dangerous down a pack of kechada.  
ENDTEXT
justonce
@ENDINF


@IF
UNITKILLED
UNIT=Kechada Pack
Attacker=Tucuna
DEFENDER=Forest
@THEN
GIVETECHNOLOGY
TECHNOLOGY=16
RECEIVER=Tucuna
TEXT
^A Tucuna has brought down a dangerous down a pack of kechada.  
ENDTEXT
@ENDINF

@IF
UNITKILLED
UNIT=Boto
Attacker=Tucuna
DEFENDER=River
@THEN
GIVETECHNOLOGY
TECHNOLOGY=35
RECEIVER=Tucuna
PLAYWAVEFILE
Drumbn.wav
TEXT
^A wail of horror echos across the river as word is passed that
^a boto was slain.
ENDTEXT
@ENDINF

@IF
UNITKILLED
UNIT=Boto
Attacker=Marubu
DEFENDER=River
@THEN
GIVETECHNOLOGY
TECHNOLOGY=35
RECEIVER=Marubu
PLAYWAVEFILE
Drumbn.wav
TEXT
^A wail of horror echos across the river as word is passed that
^a boto was slain.
ENDTEXT
@ENDINF

@IF
UNITKILLED
UNIT=Curupira
Attacker=Marubu
DEFENDER=Forest
@THEN
GIVETECHNOLOGY
TECHNOLOGY=24
RECEIVER=Marubu
PLAYWAVEFILE
Extra4.wav
TEXT
^A cry of triumph resounds at the news that the curupira has
^been slain.
ENDTEXT
@ENDINF

@IF
UNITKILLED
UNIT=Curupira
Attacker=Tucuna
DEFENDER=Forest
@THEN
GIVETECHNOLOGY
TECHNOLOGY=24
RECEIVER=Tucuna
PLAYWAVEFILE
Extra4.wav
TEXT
^A cry of triumph resounds at the news that the curupira has
^been slain.
ENDTEXT
@ENDINF

@IF
UNITKILLED
UNIT=Army Ants
Attacker=Anybody
DEFENDER=Forest
@THEN
CREATEUNIT
OWNER=Forest
UNIT=Army Ants
VETERAN=yes
HOMECITY=none
LOCATIONS
8,34
ENDLOCATIONS
@ENDINF


; Tech finds (foraging)


@IF
UNITKILLED
UNIT=Thatch
Attacker=Tucuna
DEFENDER=Forest
@THEN
GiveTechnology
TECHNOLOGY=91
RECEIVER=Tucuna
@ENDINF

@IF
UNITKILLED
UNIT=Thatch
Attacker=Marubu
DEFENDER=Forest
@THEN
GiveTechnology
TECHNOLOGY=91
RECEIVER=Marubu
@ENDINF

@IF
UNITKILLED
UNIT=Vines
Attacker=Tucuna
DEFENDER=Forest
@THEN
GiveTechnology
TECHNOLOGY=87
RECEIVER=Tucuna
@ENDINF


@IF
UNITKILLED
UNIT=Vines
Attacker=Marubu
DEFENDER=Forest
@THEN
GiveTechnology
TECHNOLOGY=87
RECEIVER=Marubu
@ENDINF

@IF
UNITKILLED
UNIT=Banana
Attacker=Tucuna
DEFENDER=Forest
@THEN
GiveTechnology
TECHNOLOGY=44
RECEIVER=Tucuna
@ENDINF


@IF
UNITKILLED
UNIT=Banana
Attacker=Marubu
DEFENDER=Forest
@THEN
GiveTechnology
TECHNOLOGY=44
RECEIVER=Marubu
@ENDINF

@IF
UNITKILLED
UNIT=Mandioca
Attacker=Tucuna
DEFENDER=Forest
@THEN
GiveTechnology
TECHNOLOGY=42
RECEIVER=Tucuna
@ENDINF

@IF
UNITKILLED
UNIT=Mandioca
Attacker=Marubu
DEFENDER=Forest
@THEN
GiveTechnology
TECHNOLOGY=42
RECEIVER=Marubu
@ENDINF

@IF
UNITKILLED
UNIT=Tobacco
Attacker=Tucuna
DEFENDER=Forest
@THEN
GiveTechnology
TECHNOLOGY=62
RECEIVER=Tucuna
@ENDINF

@IF
UNITKILLED
UNIT=Tobacco
Attacker=Marubu
DEFENDER=Forest
@THEN
GiveTechnology
TECHNOLOGY=62
RECEIVER=Marubu
@ENDINF

@IF
UNITKILLED
UNIT=Curare
Attacker=Tucuna
DEFENDER=Forest
@THEN
GiveTechnology
TECHNOLOGY=46
RECEIVER=Tucuna
@ENDINF

@IF
UNITKILLED
UNIT=Curare
Attacker=Marubu
DEFENDER=Forest
@THEN
GiveTechnology
TECHNOLOGY=46
RECEIVER=Marubu
@ENDINF


; Hunting & fishing pays meat & hides

@IF
UNITKILLED
UNIT=Caititu
Attacker=Tucuna
DEFENDER=Forest
@THEN
CREATEUNIT
OWNER=Tucuna
UNIT=Cai. Meat
VETERAN=no
HOMECITY=none
LOCATIONS
67,53
ENDLOCATIONS
@ENDINF

@IF
UNITKILLED
UNIT=Anta
Attacker=Tucuna
DEFENDER=Forest
@THEN
CREATEUNIT
OWNER=Tucuna
UNIT=Anta Meat
VETERAN=no
HOMECITY=none
LOCATIONS
67,53
ENDLOCATIONS
@ENDINF

@IF
UNITKILLED
UNIT=Onca
Attacker=Tucuna
DEFENDER=Forest
@THEN
CREATEUNIT
OWNER=Tucuna
UNIT=Onca Pelt
VETERAN=no
HOMECITY=none
LOCATIONS
67,53
ENDLOCATIONS
@ENDINF

@IF
UNITKILLED
UNIT=Kechada Pack
Attacker=Tucuna
DEFENDER=Forest
@THEN
CREATEUNIT
OWNER=Tucuna
UNIT=Kechada Meat
VETERAN=no
HOMECITY=none
LOCATIONS
67,53
ENDLOCATIONS
@ENDINF

@IF
UNITKILLED
UNIT=Pirarucu
Attacker=Tucuna
DEFENDER=River
@THEN
CREATEUNIT
OWNER=Tucuna
UNIT=Pir. Flesh
VETERAN=no
HOMECITY=none
LOCATIONS
67,53
ENDLOCATIONS
@ENDINF

@IF
UNITKILLED
UNIT=Sucuri
Attacker=Tucuna
DEFENDER=River
@THEN
CREATEUNIT
OWNER=Tucuna
UNIT=Suc. Skin
VETERAN=no
HOMECITY=none
LOCATIONS
67,53
ENDLOCATIONS
@ENDINF

@IF
UNITKILLED
UNIT=Jacare
Attacker=Tucuna
DEFENDER=River
@THEN
CREATEUNIT
OWNER=Tucuna
UNIT=Jac. Skin
VETERAN=no
HOMECITY=none
LOCATIONS
67,53
ENDLOCATIONS
@ENDINF

@IF
UNITKILLED
UNIT=Tambaqui
Attacker=Tucuna
DEFENDER=River
@THEN
CREATEUNIT
OWNER=Tucuna
UNIT=Tam. Flesh
VETERAN=no
HOMECITY=none
LOCATIONS
67,53
ENDLOCATIONS
@ENDINF

@IF
UNITKILLED
UNIT=Surubim
Attacker=Tucuna
DEFENDER=River
@THEN
CREATEUNIT
OWNER=Tucuna
UNIT=Sur. Flesh
VETERAN=no
HOMECITY=none
LOCATIONS
67,53
ENDLOCATIONS
@ENDINF

@IF
UNITKILLED
UNIT=Caititu
Attacker=Marubu
DEFENDER=Forest
@THEN
CREATEUNIT
OWNER=Marubu
UNIT=Cai. Meat
VETERAN=no
HOMECITY=none
LOCATIONS
46,8
ENDLOCATIONS
@ENDINF

@IF
UNITKILLED
UNIT=Anta
Attacker=Marubu
DEFENDER=Forest
@THEN
CREATEUNIT
OWNER=Marubu
UNIT=Anta Meat
VETERAN=no
HOMECITY=none
LOCATIONS
46,8
ENDLOCATIONS
@ENDINF

@IF
UNITKILLED
UNIT=Onca
Attacker=Marubu
DEFENDER=Forest
@THEN
CREATEUNIT
OWNER=Marubu
UNIT=Onca Pelt
VETERAN=no
HOMECITY=none
LOCATIONS
46,8
ENDLOCATIONS
@ENDINF

@IF
UNITKILLED
UNIT=Kechada Pack
Attacker=Marubu
DEFENDER=Forest
@THEN
CREATEUNIT
OWNER=Marubu
UNIT=Kechada Meat
VETERAN=no
HOMECITY=none
LOCATIONS
46,8
ENDLOCATIONS
@ENDINF

@IF
UNITKILLED
UNIT=Pirarucu
Attacker=Marubu
DEFENDER=River
@THEN
CREATEUNIT
OWNER=Marubu
UNIT=Pir. Flesh
VETERAN=no
HOMECITY=none
LOCATIONS
46,8
ENDLOCATIONS
@ENDINF

@IF
UNITKILLED
UNIT=Sucuri
Attacker=Marubu
DEFENDER=River
@THEN
CREATEUNIT
OWNER=Marubu
UNIT=Suc. Skin
VETERAN=no
HOMECITY=none
LOCATIONS
46,8
ENDLOCATIONS
@ENDINF

@IF
UNITKILLED
UNIT=Jacare
Attacker=Marubu
DEFENDER=River
@THEN
CREATEUNIT
OWNER=Marubu
UNIT=Jac. Skin
VETERAN=no
HOMECITY=none
LOCATIONS
46,8
ENDLOCATIONS
@ENDINF

@IF
UNITKILLED
UNIT=Tambaqui
Attacker=Marubu
DEFENDER=River
@THEN
CREATEUNIT
OWNER=Marubu
UNIT=Tam. Flesh
VETERAN=no
HOMECITY=none
LOCATIONS
46,8
ENDLOCATIONS
@ENDINF

@IF
UNITKILLED
UNIT=Surubim
Attacker=Marubu
DEFENDER=River
@THEN
CREATEUNIT
OWNER=Marubu
UNIT=Sur. Flesh
VETERAN=no
HOMECITY=none
LOCATIONS
46,8
ENDLOCATIONS
@ENDINF

; seasonal things
; predators, floods, etc

; normal water
@IF
TURN
turn=-1
@THEN
changeterrain
terraintype=10
maprect
64,52,64,52,64,52,64,52
@ENDINF

@IF
TURN
turn=-1
@THEN
PLAYWAVEFILE
Cricket.wav
changeterrain
terraintype=5
maprect
65,51,65,51,65,51,65,51
@ENDINF

; new beach
@IF
RandomTurn
denominator=150
@THEN
changeterrain
terraintype=0
maprect
66,50,66,50,66,50,66,50
@ENDINF

; low water
@IF
RandomTurn
denominator=12
@THEN
PLAYWAVEFILE
Bird2.wav
changeterrain
terraintype=0
maprect
64,52,64,52,64,52,64,52
CREATEUNIT
OWNER=River
UNIT=Pium
VETERAN=no
HOMECITY=none
LOCATIONS
56,60
ENDLOCATIONS
@ENDINF

; flooding
@IF
RandomTurn
denominator=200
@THEN
TEXT
^Unusually bad flooding strikes.  The currents tear
^at the banks and drown some islands.  Wildlife
^swept adift struggles ashore where it can.
ENDTEXT
changeterrain
terraintype=10
maprect
60,50,64,50,60,58,64,58
PLAYWAVEFILE
Storm.wav
CREATEUNIT
OWNER=Forest
UNIT=caititu
VETERAN=yes
HOMECITY=none
LOCATIONS
66,56
70,54
ENDLOCATIONS
@ENDINF

; random storms
@IF
RandomTurn
denominator=10
@THEN
PLAYWAVEFILE
Storm.wav
@ENDIF

; kechada
@IF
TURN
turn=200
@THEN
PLAYWAVEFILE
Kechada0.wav
CREATEUNIT
OWNER=Forest
UNIT=Kechada pack
VETERAN=no
HOMECITY=none
LOCATIONS
0,36
ENDLOCATIONS
@ENDIF

@IF
UNITKILLED
UNIT=Kechada Pack
Attacker=Anybody
DEFENDER=Forest
@THEN
CREATEUNIT
OWNER=Forest
UNIT=Kechada Pack
VETERAN=no
HOMECITY=none
LOCATIONS
99,13
ENDLOCATIONS
ENDTEXT
@ENDINF

; boto
@IF
RandomTurn
denominator=200
@THEN
PLAYWAVEFILE
Boto.wav
CREATEUNIT
OWNER=River
UNIT=Boto
VETERAN=no
HOMECITY=none
LOCATIONS
56,60
ENDLOCATIONS
@ENDINF

; curupira
@IF
RandomTurn
denominator=200
@THEN
CREATEUNIT
PLAYWAVEFILE
Monkey.wav
OWNER=Forest
UNIT=Curupira
VETERAN=no
HOMECITY=none
LOCATIONS
73,27
ENDLOCATIONS
@ENDINF

; pirarucu
@IF
RandomTurn
denominator=20
@THEN
PLAYWAVEFILE
Bird1.wav
CREATEUNIT
OWNER=River
UNIT=Pirarucu
VETERAN=no
HOMECITY=none
LOCATIONS
76,16
ENDLOCATIONS
@ENDIF

; killer catfish!
@IF
RandomTurn
denominator=30
@THEN
PLAYWAVEFILE
Bird.wav
CREATEUNIT
OWNER=River
UNIT=Surubim
VETERAN=no
HOMECITY=none
LOCATIONS
47,57
ENDLOCATIONS
@ENDINF

; sucuri
@IF
RandomTurn
denominator=100
@THEN
PLAYWAVEFILE
Sucuri0.wav
CREATEUNIT
OWNER=River
UNIT=Sucuri
VETERAN=no
HOMECITY=none
LOCATIONS
79,11
ENDLOCATIONS
@ENDINF

; jacare
@IF
RandomTurn
denominator=100
@THEN
CREATEUNIT
OWNER=River
UNIT=Jacare
VETERAN=no
HOMECITY=none
LOCATIONS
15,19
ENDLOCATIONS
@ENDINF

; Onca
@IF
RandomTurn
denominator=150
@THEN
PLAYWAVEFILE
Extra6.wav
CREATEUNIT
OWNER=Forest
UNIT=Onca
VETERAN=no
HOMECITY=none
LOCATIONS
83,15
ENDLOCATIONS
@ENDINF


; Mayuruna support (start on island)

; allow exodus 

@IF
TURN
turn=100
@THEN
TEXT
^There are smoke plumes to the far southwest.
ENDTEXT
PLAYWAVEFILE
Spysound.wav
changeterrain
terraintype=5
maprect
0,62,4,62,0,66,4,66
GiveTechnology
Technology=8
Receiver=Mayuruna
@ENDIF

@IF
ReceivedTechnology
Receiver=Mayuruna
Technology=8
@THEN
ChangeMoney
Receiver=Mayuruna
Amount=20
@ENDIF

@ENDEVENTS
